home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / route 66 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  7.4 KB  |  227 lines
  1. 1 poke51,0:poke52,78:poke55,0:poke56,78:clr:a$="":poke2,255:goto50
  2. 2 zz=0
  3. 3 geta$
  4. 4 ifa$<>"+"then7
  5. 5 e=e+1:ife>2thene=0
  6. 6 gosub20
  7. 7 ifa$="[145]"ora$=""thendl=dl-1:pokev,122-dl:ifdl<1thendl=1
  8. 8 ifa$=""ora$="[157]"thendl=dl+1:pokev,122-dl:ifdl>34thendl=34
  9. 9 ifapthengosub30
  10. 10 ifa$="q"thensys52225:gosub800
  11. 11 ifa$<>"r"then15
  12. 12 ra=ra+1:ifra>3thenra=0
  13. 13 ifra=0thensys52225:goto17
  14. 14 sys52222,256*(72+ra*6)
  15. 15 if(peek(2)=255)and(ra)then14
  16. 17 zz=zz+1:ifzz<dl*4then3
  17. 19 return
  18. 20 sys51459:poke251,w%(e):poke252,160:poke253,140
  19. 21 poke53265,peek(53265)and239:sys51456:fort=1to500:next
  20. 22 poke53265,peek(53265)or16
  21. 23 poke252,160:poke253,140:sys51459:o=1
  22. 24 return
  23. 30 gg=gg+1:ifgg>255thengg=0:pokev+16,6
  24. 31 if(peek(v+16))andgg>80thengg=0:pokev+16,0:ap=0
  25. 32 ifgg>200thenpokev+27,1
  26. 33 ifgg<200thenpokev+27,6
  27. 34 pokev+2,gg:pokev+4,gg
  28. 35 return
  29. 50 dimb$(20,6),c$(30),w%(4),er%(4),mi$(3),sx$(3),es$(3),u%(20),uu%(20)
  30. 51 fori=0to24:poke54272+i,0:next
  31. 52 v=53248:pokev+21,0:gosub1000
  32. 54 sys57812"unpacker.89",8,0:poke780,0:poke781,0:poke782,201:sys65493
  33. 55 sys57812"scripter $c400",8,0:poke780,0:poke781,0:poke782,196:sys65493
  34. 56 sys57812"mo.shp",8,0:poke780,0:poke781,0:poke782,100:sys65493
  35. 57 sys57812"nm.shp",8,0:poke780,0:poke781,0:poke782,110:sys65493
  36. 58 sys57812"ca.shp",8,0:poke780,0:poke781,0:poke782,120:sys65493
  37. 62 sys57812"spr",8,0:poke780,0:poke781,0:poke782,132:sys65493
  38. 70 sys57812"input any.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  39. 72 sys57812"basic player.o",8,0:poke780,0:poke781,254:poke782,203:sys65493
  40. 74 sys57812"woogie",8,0:poke780,0:poke781,0:poke782,78:sys65493:poke78*256+2,40
  41. 76 sys57812"fingers",8,0:poke780,0:poke781,0:poke782,84:sys65493:poke84*256+2,50
  42. 77 sys57812"riff",8,0:poke780,0:poke781,0:poke782,90:sys65493:poke90*256+2,35
  43. 78 sys57812"w.1",8,0:poke780,0:poke781,104:poke782,207:sys65493
  44. 80 open8,8,8,"cities,p,r"
  45. 81 get#8,a$,a$
  46. 82 j=0:fori=0to1:sys828,8,40:i=st:c$(j)=a$+cr$:j=j+1:next:close8:g=j-1
  47. 90 open8,8,8,"shave signs,p,r"
  48. 91 get#8,a$,a$
  49. 92 j=0:fori=0to1:fork=0to5:sys828,8,40:i=st:b$(j,k)=a$+cr$:next:j=j+1:next
  50. 94 close8
  51. 95 d$(1)="only 987 miles to"+cr$
  52. 97 d$(2)="don't miss"+cr$
  53. 98 d$(3)="458 miles ahead"+cr$
  54. 100 d$(4)="what is it? it's"+cr$
  55. 101 d$(5)="only 134 miles to"+cr$
  56. 103 d$(6)="you just passed"+cr$
  57. 104 sys57812"route font",8,0:poke780,0:poke781,0:poke782,192:sys65493
  58. 105 cr$=chr$(13)
  59. 106 bs$="[192][193][199][157][157][157][157][157][157][157][161][162][163][164][165][166][167][168][169][170][171][172][157][157][157][157][157][157][157][157][157][157][157][157][173][174][175][176][177][178][179][180][181][182][183][184]"+cr$
  60. 108 er$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  61. 109 er$=er$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157][160][157][160][157][160]"+cr$
  62. 110 sx$="[194][195][196][197][198][157][157][157][157][157][200][201][202][203][204][157][157][157][157][157][205][206][207][208][209][157][157][157][144]^[157]^[157]^[157]_"+cr$:rem 66
  63. 111 ci$="[210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][213]                 [214][157][157][157][157][157][157][157][157][157][157]"
  64. 112 ci$=ci$+"[157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217][157][157][157][157][157][157][157][157][157][157][144]^[157]^[157]_"+cr$
  65. 113 pl$="                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                   [157][157][157][157][157]"
  66. 114 pl$=pl$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]                   [157][157][157][157][157][157][157][157][157][157][144]^[157]^[157]_"+cr$
  67. 115 mi$(0)="[218][157][144][221]"+cr$:er$(0)=" [157] "+cr$:rem sgn 0
  68. 116 mi$(1)="[219][220][157][144][223]"+cr$:er$(1)="  [157][157]  "+cr$:rem sgn 1
  69. 117 mi$(2)="[160]]][160][157][157][157][144][189][213][157][157][189][213]"+cr$:er$(2)="    [157][157][157]  [157][157]  "+cr$
  70. 118 es$="[160][160][160][160][160][157][157][157][157][157][160][160][160][160][160][157][157][157][157][157][160][160][160][160][160][157][157][157][160][157][160][157][160][157] "+cr$
  71. 120 sx$(0)="[185][157][144][186]"+cr$:es$(0)="[160][157][160]"+cr$
  72. 121 sx$(1)="[187][157][144][188]"+cr$:es$(1)="[160][157] "+cr$
  73. 122 sx$(2)="#$[157][157]%&[157][157][144][189][213][157][157][189][213]"+cr$:es$(2)="  [157][157]  [157][157]  [157][157]  "+cr$
  74. 124 er%(0)=30:rem grn
  75. 125 er%(1)=149:rem brn
  76. 126 er%(2)=129:rem ora
  77. 132 fori=0to2:readw%(i):next:rem scrns
  78. 133 data100,110,120
  79. 135 fori=0to2:readxs(i),ys(i),xc(i),yc(i):next:rem sign x and y
  80. 137 data17,10,17,10,19,11,18,11,25,12,22,12
  81. 140 x=rnd(-ti)
  82. 172 pokev+39,0:pokev+40,11:pokev+41,1
  83. 173 pokev+3,80:pokev+5,80:pokev+27,6
  84. 174 pokev+29,0:pokev+23,0:pokev+16,0
  85. 178 fori=0to2:poke36856+i,16+i:next:rem bank 2 sp pointers
  86. 180 pokev,112:pokev+1,235:print"[147]"
  87. 190 poke53272,31:sys50176,160,140,192
  88. 210 e=0:dl=10:gg=30:dd=0:pokev,112
  89. 220 print"[147]"
  90. 270 poke251,w%(e):poke252,160:poke253,140:sys51456
  91. 280 poke252,160:poke253,140:sys51459:o=1
  92. 290 pokev+21,7
  93. 295 ifrathensys52222,256*(72+ra*6)
  94. 300 fork=0tog
  95. 303 n=0:ifk<17andk>4thenif(k/2)=int(k/2)thendd=dd+1:gosub380
  96. 305 ifk=7ork=13thenn=1:gosub380:gosub5
  97. 307 ifk=2ork=9ork=14thenap=1
  98. 310 ford=0to2
  99. 320 f=0:ond+1goto330,360,400
  100. 327 :
  101. 328 :rem  66 sign
  102. 329 :
  103. 330 iff=2thensys50182,xs(f),ys(f),"[155][151]#$[157][157]%&[157][157]"+chr$(er%(e))+"[144][189][213][157][157][189][213]"+cr$
  104. 331 iff<2thensys50182,xs(f),ys(f),""+chr$(er%(e))+"[155]"+sx$(f)
  105. 332 gosub2
  106. 333 sys50182,xs(f),ys(f),chr$(er%(e))+es$(f)
  107. 334 f=f+1:iff<3then330
  108. 335 sys50182,30,11,"[155][151][194][195][196][197][198][157][157][157][157][157][200][201][202][203][204][157][157][157][157][157][205][206][207][208][209][157][157][157]"+chr$(er%(e))
  109. 336 sys50179,"[144]^[157]^[157]^[157]_"+cr$
  110. 337 gosub2
  111. 338 sys50182,30,11,chr$(er%(e))+es$
  112. 339 goto430
  113. 340 :
  114. 341 :rem  thing signs
  115. 342 :
  116. 343 f=0
  117. 344 sys50182,xc(f),yc(f),""+chr$(er%(e))+""+chr$(h%(n))+mi$(f)
  118. 345 gosub2
  119. 346 sys50182,xc(f),yc(f),chr$(er%(e))+er$(f)
  120. 347 f=f+1:iff<3then344
  121. 348 sys50182,20,11,""+chr$(h%(n))+"[144][210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  122. 349 sys50179,"[213]                 [214][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217]"
  123. 350 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  124. 351 sys50182,24,12,""+chr$(h%(n))+"[144]tunnel ahead"
  125. 352 gosub2
  126. 353 sys50182,20,11,chr$(er%(e))+er$
  127. 354 return
  128. 357 :
  129. 358 :rem  cities sign
  130. 359 :
  131. 360 sys50182,xc(f),yc(f),""+chr$(er%(e))+"[155]"+mi$(f)
  132. 362 gosub2
  133. 364 sys50182,xc(f),yc(f),chr$(er%(e))+er$(f)
  134. 366 f=f+1:iff<3then360
  135. 367 sys50182,20,11,"[155][151][210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  136. 368 sys50179,"[213]                 [214][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217]"
  137. 369 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  138. 370 sys50182,30-len(c$(k))/2,12,"[155][144]"+c$(k)
  139. 372 gosub2
  140. 374 sys50182,20,11,chr$(er%(e))+er$
  141. 376 goto430
  142. 377 :
  143. 378 :rem  special sign
  144. 379 :
  145. 380 f=0
  146. 381 sys50182,xc(f),yc(f),""+chr$(er%(e))+"[158]"+mi$(f)
  147. 382 gosub2
  148. 383 sys50182,xc(f),yc(f),chr$(er%(e))+er$(f)
  149. 384 f=f+1:iff<3then381
  150. 385 sys50182,20,11,"[158][144][210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  151. 386 sys50179,"[213]                 [214][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217]"
  152. 387 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  153. 388 ifnthensys50182,24,12,"[158][144]tunnel ahead"+cr$:goto392
  154. 389 sys50182,30-len(d$(dd))/2,12,"[158][144]"+d$(dd)
  155. 391 sys50182,25,13,"*+/[216]*+<=>;"+cr$
  156. 392 gosub2
  157. 393 sys50182,20,11,chr$(er%(e))+er$
  158. 394 return
  159. 397 :
  160. 398 :rem  bs sign
  161. 399 :
  162. 400 sys50182,xc(f),yc(f),""+chr$(er%(e))+""+mi$(f)
  163. 403 gosub2
  164. 404 f=f+1:iff<3then400
  165. 405 sys50182,20,11,"                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  166. 406 sys50179,"                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                   "
  167. 407 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  168. 408 f=0
  169. 409 sys50182,20,12,"                   "+cr$
  170. 411 sys50182,30-len(b$(k,f))/2,12,b$(k,f)
  171. 412 gosub2
  172. 413 f=f+1:iff<4then409
  173. 415 f=0
  174. 416 sys50182,xc(f),yc(f),""+chr$(er%(e))+""+er$(f)
  175. 419 sys50182,20,12,"                   "+cr$
  176. 420 ifb$(k,f+4)="*"then423
  177. 421 sys50182,30-len(b$(k,f+4))/2,12,""+b$(k,f+4)
  178. 422 gosub2
  179. 423 f=f+1:iff<2then416
  180. 424 sys50182,23,14,""+chr$(er%(e))+"  "+cr$
  181. 425 sys50182,20,12,"                   "+cr$
  182. 426 sys50182,23,11,bs$
  183. 427 gosub2
  184. 428 sys50182,20,11,""+chr$(er%(e))+er$
  185. 430 next
  186. 440 next
  187. 500 sys51459:o=0:pokev+21,0:poke53272,22:sys52225
  188. 510 print"[147][159]     [195]ongratulations, you survived"
  189. 520 print"[129]             [210] [207] [213] [212] [197]    6 6"
  190. 525 print"       [212]he [205]ain [211]treet of [193]merica"
  191. 530 print"       [154]([212][154])ake another trip?
  192. 540 [153]"       ((NULL)cont)uit?":[151]198,0
  193. 550 [161]a$:[139]a$[179][177]"t"[175]a$[179][177]"q"[167]550
  194. 560 [139]a$[178]"t"[167]210
  195. 570 [137]840
  196. 800 [151]v[170]21,0:[139]o[167]o[178]0:[158]51459
  197. 810 [151]53272,22:[153]"loadcont       (NULL)uit?  are you sure? (ycont/ncont)"
  198. 820 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]820
  199. 830 [139]a$[178]"n"[167][153]"load":[158]51459:o[178]1:[151]v[170]21,1:[142]
  200. 840 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  201. 850 [139]er[179][177]63[167][158]40195:[128]
  202. 860 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  203. 870 [153]"run"
  204. 880 [151]631,13:[151]632,13:[151]198,2:[128]
  205. 1000 [151]53281,0:[151]53280,0:[153]"loadfor        (NULL)  (NULL)  (NULL)  (NULL)  val     6  6"
  206. 1010 [153][163]12)"contby ascender (NULL)ucker"
  207. 1030 [153]"         len(NULL)(NULL)(NULL) (NULL)(NULL)open - (NULL)peed up
  208. 1040 print"         [195][210][211][210] [196][207][215][206][159] - [211]low down"
  209. 1050 print"         [210][159] - [198]iddle with radio"
  210. 1060 print"         [209][159] - [209]uit the trip"
  211. 1070 gosub60000
  212. 1090 poke214,23:print:printtab(15)"[158][204]oading...[145][145]"
  213. 1095 return
  214. 9999 goto9999
  215. 10000 open15,8,15,"s0:route 66":close15:save"route 66",8:end
  216. 60000 b9$="                                      "
  217. 60010 poke214,13:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  218. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  219. 60030 b9$(0)="[210] [207] [213] [212] [197]   6 6"
  220. 60040 b9$(1)="by [198]ender [212]ucker"
  221. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  222. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #80"
  223. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  224. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  225. 60090 poke214,15:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  226. 60099 return
  227.